SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMDOCU_CLIE_D01]
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS S.A.                --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M÷dulo               : Empresa                    --*/  
/*---Programa             : Anulaci¸n Dctos. Clientes  --*/  
/*---Script               : TMDOCU_CLIE_D01.sql        --*/  
/*---Nombre SP            : SP_TMDOCU_CLIE_D01         --*/  
/*---Desarrollado por     : Denis Villacres.           --*/  
/*---Fecha Creaci÷n       : 11/07/2000                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi÷n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     : Maribel Julca Rodriguez    --*/  
/*---Fecha Modificaci©n   : 21/04/2005                 --*/   
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA, CO_USUA_MODI  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TMDOCU_CLIE_D01                      --*/  
/*---Grant Execute on SP_TMDOCU_CLIE_D01 to public     --*/   
/*---SP_TMDOCU_CLIE_D01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR       TD_VC_002,   
 @ISCO_USUA_MODI  TD_VC_008_USUA,  
 @ISCO_CLIE       TD_VC_020,  
 @ISCO_TIPO_DOCU  TD_VC_003,  
 @ISNU_DOCU_CLIE  TD_VC_020  
  
As  
   
 Begin Tran SP_TMDOCU_CLIE_D01   
  
 Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,  
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )  
    select  @ISCO_EMPR, 90, 'DETALLE DISTRIBUCI.N GASTOS CLIENTES',  
         RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+   
         RTRIM( @ISCO_TIPO_DOCU )+ REPLICATE('#', 3-LEN(RTRIM(@ISCO_TIPO_DOCU)))+   
         RTRIM( @ISNU_DOCU_CLIE )+ REPLICATE('#', 15-LEN(RTRIM(@ISNU_DOCU_CLIE)))+  
         RTRIM( NU_CORR )+ REPLICATE('#', 1-LEN(RTRIM(NU_CORR))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()  
   From   TDDISC_CCOS  
 Where   CO_EMPR = @ISCO_EMPR  
  And CO_CLIE = @ISCO_CLIE  
         And CO_TIPO_DOCU = @ISCO_TIPO_DOCU     
         And RTRIM(NU_DOCU_CLIE) = RTRIM(@ISNU_DOCU_CLIE)  
  
 If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End  
  
  
 Delete  TDDISC_CCOS  
 Where   CO_EMPR = @ISCO_EMPR  
  And CO_CLIE = @ISCO_CLIE  
  And CO_TIPO_DOCU = @ISCO_TIPO_DOCU     
         And RTRIM(NU_DOCU_CLIE) = RTRIM(@ISNU_DOCU_CLIE)  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End  
  
  
 Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,  
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)   
    select @ISCO_EMPR, 83, 'MAESTRO DOCUMENTOS CLIENTES',  
        RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+   
        RTRIM( @ISCO_TIPO_DOCU )+ REPLICATE('#', 3-LEN(RTRIM(@ISCO_TIPO_DOCU)))+   
        RTRIM( @ISNU_DOCU_CLIE )+ REPLICATE('#', 15-LEN(RTRIM(@ISNU_DOCU_CLIE))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()  
 From   TMDOCU_CLIE   
 Where  CO_EMPR = @ISCO_EMPR  
       And CO_CLIE = @ISCO_CLIE          
        And CO_TIPO_DOCU = @ISCO_TIPO_DOCU     
        And RTRIM(NU_DOCU_CLIE) = RTRIM(@ISNU_DOCU_CLIE)  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End  
  
  
  Delete TMDOCU_CLIE   
  Where  CO_EMPR = @ISCO_EMPR  
  And CO_CLIE = @ISCO_CLIE          
  And CO_TIPO_DOCU = @ISCO_TIPO_DOCU     
        And RTRIM(NU_DOCU_CLIE) = RTRIM(@ISNU_DOCU_CLIE)  
   
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End   
   
  
Commit Tran  
  
/*-------------------------- Fin ------------------------------*/


GO
